'send reuest.vbs

args = WScript.Arguments.Count

if args <> 1 then
  Wscript.Echo "usage: GetHTMLSource.vbs URL"
  wscript.Quit
end if

URL = WScript.Arguments.Item(0)

Set WshShell = WScript.CreateObject("WScript.Shell")

Set http = CreateObject("Microsoft.XmlHttp")
http.open "POST", URL, TRUE
http.setRequestHeader "Content-Type","application/x-www-form-urlencoded"
'data=http.setRequestHeader( "vipul", "Value" )
http.send "null"
Wscript.Echo "http readyState" & http.readyState
Wscript.Echo "http status " & http.status
Wscript.Echo "http response " & http.responseText

set WshShell = nothing
set http = nothing
